home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / sci / dproc126.lha / demo / v20lin.tst < prev    next >
Text File  |  1993-02-26  |  2KB  |  118 lines
  1. #dsize 40
  2.  
  3. #columns %f %f %f %f %f %f %f %f
  4. #queue 1 nu snu ua sua ue sue amp samp
  5.  
  6. #math v:=103/4.89
  7. ; nehmen 1% Fehler an
  8. #math sv:=v*rt2/100
  9. #build gt 'Verst"arkung: $%f3\\pm%f2$' v sv
  10.  
  11. #globtitle gt
  12.  
  13. #title nu "$\nu$"
  14. #unit nu "Hz"
  15. #title snu "$s_\nu$"
  16. #unit snu "Hz"
  17. #title ua "U$_A$"
  18. #unit ua V
  19. #title sua "$s_{U_A}$"
  20. #unit sua V
  21. #title amp "V'"
  22. #rtitle amp "V'($\nu$)"
  23. #gtitle amp "Messung"
  24. #title samp "$s_{V'}$"
  25. #title ue "U$_E$"
  26. #unit ue V
  27. #title sue "s$_{U_E}$"
  28. #unit sue V
  29.  
  30. #func ua2amp f(u,ue):=u/ue
  31. #func sua2samp g(amp,u,su,ue,sue):=amp*sqrt((su/u)^2+sqr(sue/ue))
  32. #func scalemv s(u):=u*milli
  33.  
  34. #make amp ua2amp ua ue
  35. #make samp sua2samp amp ua sua ue sue
  36. #scale ue scalemv
  37. #scale sue scalemv
  38.  
  39. ! OK, Let's data
  40.  
  41. #using nu snu ua sua ue sue
  42. #prec 0 2
  43. #prec amp 3
  44. #prec nu 5
  45. #prec ue 3
  46.  
  47. 101.3/0.1/5.9/0.2/300/15
  48. 202.1//5.8
  49. 402.2
  50. 699.1
  51. 994.5
  52. 2019.1
  53. 4015.5/0.5/1.9/0.15/100/20
  54. 6975/1
  55. 9918//1.85
  56. #mark gerade
  57. 16150//1.75
  58. 20483/2/1.5
  59. 27470/5/1.25
  60. 30875//1.15
  61.  
  62. ! go on -- regress
  63.  
  64. #newlog "lintst.log"
  65.  
  66. #build control "Start bei %d" gerade
  67. #logpost control
  68.  
  69. #logreg 3 nu amp 0 gerade
  70.  
  71. ! compute vg
  72.  
  73. #math vg:=(v/rt2*10^DPB)^(1/DPA)
  74. #math lvg:=vg*ln(vg)
  75. #math svg:=sqrt(lvg*((DPSA/a)^2+(DPSB/b)^2)+(vg*sv/v)^2)
  76. #build vgstr "Grenzfrequenz: %f4 +/- %f2 Hz" vg svg
  77. #post vgstr
  78. #math svgv:=vg*v*sqrt((svg/vg)^2+(sv/v)^2)
  79. #build vconst "vg*V': %f4 +/- %f2" "vg*v" svgv
  80. #post vconst
  81. #logpost vconst
  82. #logpost vgstr
  83. #logpost gt
  84.  
  85. ! tag it
  86.  
  87. #tagfile "valllin.tag" v20
  88. #build results "%f/%f/%f/%f/%f/%f" v sv vg svg v*vg svgv
  89. #tagpost results
  90.  
  91. #tagfile "reglin.tag" v20
  92. #build regs "%f/%f/%f/%f" v sv DPA DPSA
  93. #tagpost regs
  94.  
  95. ! and genarate some output
  96.  
  97. #term gnuplot
  98. #set logscale xy
  99. #storeset yrange 10:100
  100.  
  101. #if eepic
  102. #set output v20lin.eep
  103. #endif
  104.  
  105. #ocol nu amp samp
  106. #write "v20lin.dta" "v20lin.gnu"
  107.  
  108. #term latex
  109. #set Corr
  110. #set floathead
  111. #set caption v20lin
  112. #ocol nu snu ua sua amp samp
  113. #write "v20lin.tab"
  114.  
  115. ! *** DONE ***
  116.  
  117. #flushset
  118.